home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON02 / ACT02A / common2.cst / 00104_doAction - on mouseDown.ls < prev    next >
Encoding:
Text File  |  2003-09-23  |  393 b   |  13 lines
  1. on mouseDown me
  2.   global gClothingList,gameObj,draggableList
  3.   doAction (the clickOn)
  4.   set spr=the spriteNum of me
  5.   set pos=getPos(gClothingList,spr)
  6.   if pos>0 then
  7.     --checks to see if required pieces of clothing have been put on elephant(#showFlag=0)
  8.     if getaProp(getaProp(the draggableList of gameObj,spr),#showFlag)=0 then
  9.       deleteAt(gClothingList,pos)
  10.     end if
  11.   end if
  12. end
  13.